home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 52
/
Amiga Format AFCD52 (Issue 136, May 2000).iso
/
-readerstuff-
/
antony_dzeryn
/
introcreate
/
source
/
compress.amos
/
compress.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
2000-02-24
|
223b
|
12 lines
Screen Open 0,320,256,32,Lowres
Colour 1,0
Curs Off
Flash Off
PIC$=Fsel$("","","Select an IFF picture")
If PIC$<>""
Load Iff PIC$,1
Spack 1 To 1
SAV3$=Fsel$("","","Select output file")
Save SAV3$,1
End If
End